home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / swtools / trubasic / rolldemos / demos / interact / zplot3.tru < prev   
Text File  |  1994-08-02  |  1KB  |  56 lines
  1. !
  2. !  ZPLOT3     version 2.0
  3. !
  4. !  Show the 3-dimensional plot of a rather peculiar
  5. !  function F(x,y).  Choose a nice camera position at
  6. !  the start, then loop letting the user pick a new
  7. !  camera position.
  8. !
  9. !  This is a perspective view.  Change "PersWindow" to
  10. !  "ParaWindow" to get a parallel view.
  11. !
  12. LIBRARY "../3d/3dcont.trc","../3d/3dlib.trc"
  13. randomize
  14. call tw_wset_title(0,"zplot3")
  15.  
  16. CALL PersWindow(-pi,pi,-pi,pi,-1.5,1.2)
  17. LET x = -3
  18. LET y = -5
  19. LET z = 4
  20. DO
  21.    set color "white"
  22.    PRINT "Eye <ctrl-C to exit>: ";x;y;z
  23.    set color rnd*(16)+1
  24.    call draw_image
  25.    do while not key input
  26.     if refresh(0)=1 then
  27.         clear
  28.         call draw_image
  29.     end if
  30.     get mouse xtmp,ytmp,state
  31.     if state<>0 then stop
  32.    loop
  33.    GET KEY xxx
  34.    CLEAR
  35.    set color "white"
  36.    print "eye: ";
  37.    do while not key input
  38.     if refresh(0)=1 then
  39.         clear
  40.            print "eye: ";
  41.     end if
  42.    loop
  43.    input x,y,z
  44.    CLEAR
  45. LOOP
  46. sub draw_image
  47.    CALL SetCamera3(x,y,z)
  48.    CALL Zplot
  49. end sub
  50. END
  51.  
  52. DEF F(x,y)
  53.     LET a = x*x + y*y
  54.     LET F = 3.5*cos(1.75*a)*exp(-.8*a)
  55. END DEF
  56.